%!PS-Adobe-2.0 EPSF-2.0
%% This is a Stata generated postscript file
%%BoundingBox: 0 0 258 188
%%HiResBoundingBox: 0.000 0.000 257.400 187.200
%%DocumentNeededResources: font Helvetica
/xratio 0.008044 def
/yratio 0.008044 def
/Sbgfill {
	/y1 exch def
	/x1 exch def
	/y0 exch def
	/x0 exch def
	x0 y0 moveto
	x0 y1 lineto x1 y1 lineto x1 y0 lineto x0 y0 lineto
	fill
} def
/Spt {
	yratio mul
	/yp exch def
	xratio mul
	/xp exch def
	Slrgb setrgbcolor
	xp yp .5 0 360 arc fill
} def
/Sln {
	yratio mul
	/y1p exch def
	xratio mul
	/x1p exch def
	yratio mul
	/y0p exch def
	xratio mul
	/x0p exch def
	Slw setlinewidth
	Slrgb setrgbcolor
	x0p y0p M x1p y1p lineto S
} def
/Scrv {
	yratio mul
	/y3p exch def
	xratio mul
	/x3p exch def
	yratio mul
	/y2p exch def
	xratio mul
	/x2p exch def
	yratio mul
	/y1p exch def
	xratio mul
	/x1p exch def
	Slw setlinewidth
	Slrgb setrgbcolor
	x1p y1p x2p y2p x3p y3p curveto
	S
} def
/Stxtl {
	/sp exch def
	yratio mul
	/sizep exch def
	dup
	/anglep exch def
	0 exch sub
	/angle2p exch def
	yratio mul
	/y0p exch def
	xratio mul
	/x0p exch def
	Strgb setrgbcolor
	x0p y0p M anglep rotate sizep fntsize sp show stroke angle2p rotate
} def
/Stxtc {
	/sp exch def
	yratio mul
	/sizep exch def
	dup
	/anglep exch def
	0 exch sub
	/angle2p exch def
	yratio mul
	/y0p exch def
	xratio mul
	/x0p exch def
	Strgb setrgbcolor
	x0p y0p M anglep rotate sizep fntsize sp stringwidth exch -2 div exch rm sp show stroke angle2p rotate
} def
/Stxtr {
	/sp exch def
	yratio mul
	/sizep exch def
	dup
	/anglep exch def
	0 exch sub
	/angle2p exch def
	yratio mul
	/y0p exch def
	xratio mul
	/x0p exch def
	Strgb setrgbcolor
	x0p y0p M anglep rotate sizep fntsize sp stringwidth 1 index -1 mul exch rm pop sp show stroke angle2p rotate
} def
/Srect {
	/sfill exch def
	/sstroke exch def
	yratio mul
	/y1 exch def
	xratio mul
	/x1 exch def
	yratio mul
	/y0 exch def
	xratio mul
	/x0 exch def
	newpath x0 y0 moveto x0 y1 lineto x1 y1 lineto x1 y0 lineto x0 y0 lineto closepath
	sfill Sfill
	sstroke Sstroke
} def
/Sellipse {
	/sfill exch def
	/sstroke exch def
	yratio mul
	/yrad exch def
	xratio mul
	/xrad exch def
	yratio mul
	/y exch def
	xratio mul
	/x exch def
	/savematrix matrix currentmatrix def
	x y translate
	xrad yrad scale
	0 0 1 0 360 arc
	savematrix setmatrix
	sfill Sfill
	sstroke Sstroke
} def
/Stri {
	/sfill exch def
	/sstroke exch def
	xratio mul
	/r exch def
	yratio mul
	/y0 exch def
	xratio mul
	/x0 exch def
	/xcen x0 def
	y0 r add
	/ytop exch def
	r 2 div
	y0 exch sub
	/ybot exch def
	r 3 sqrt 2 div mul dup
	xcen exch sub
	/xleft exch def
	xcen add
	/xright exch def
	newpath xcen ytop moveto xright ybot lineto xleft ybot lineto xcen ytop lineto closepath
	sfill Sfill
	sstroke Sstroke
} def
/Soldtri {
	/sfill exch def
	xratio mul
	/r exch def
	yratio mul
	/y0 exch def
	xratio mul
	/x0 exch def
	x0 r sub
	/x1 exch def
	y0 r sub
	/y1 exch def
	x0 r add
	/x2 exch def
	y0 r sub
	/y2 exch def
	/x3 x0 def
	y0 r add
	/y3 exch def
	newpath x1 y1 moveto x2 y2 lineto x3 y3 lineto x1 y1 lineto closepath
	sfill 1 eq {
		Ssrgb setrgbcolor
		gsave
		fill
		grestore
	} if
	Slw setlinewidth
	Slrgb setrgbcolor
	S
} def
/Sdia {
	/sfill exch def
	/sstroke exch def
	xratio mul
	/r exch def
	yratio mul
	/y exch def
	xratio mul
	/x exch def
	x r sub
	/x0 exch def
	/y0 y def
	/x1 x def
	y r sub
	/y1 exch def
	x r add
	/x2 exch def
	/y2 y def
	/x3 x def
	y r add
	/y3 exch def
	newpath x0 y0 moveto x1 y1 lineto x2 y2 lineto x3 y3 lineto closepath
	sfill Sfill
	sstroke Sstroke
} def
/Scc {
	/sfill exch def
	/sstroke exch def
	xratio mul
	/r0 exch def
	yratio mul
	/y0 exch def
	xratio mul
	/x0 exch def
	x0 y0 r0 0 360 arc closepath
	sfill Sfill
	sstroke Sstroke
} def
/Spie {
	/sfill exch def
	/salign exch def
	/a1 exch def
	/a0 exch def
	xratio mul
	/r exch def
	yratio mul
	/y exch def
	xratio mul
	/x exch def
	/Pie {
		x y moveto x y r a0 a1 arc closepath
	} def
	newpath Pie
	sfill Sfill
	Slrgb setrgbcolor
	salign 0 eq {
		gsave
		Slw 2 mul setlinewidth
		clip
		S
		grestore
	} if
	salign 1 eq {
		Slw setlinewidth
		S
	} if
	salign 2 eq {
		gsave
		Slw 2 mul setlinewidth
		strokepath
		pathbbox
		/ury exch def
		/urx exch def
		/lly exch def
		/llx exch def
		newpath llx lly moveto llx ury lineto urx ury lineto urx lly lineto closepath
		Pie
		eoclip
		newpath Pie
		S
		grestore
	} if
	newpath
} def
/Splu {
	xratio mul
	/r exch def
	yratio mul
	/y exch def
	xratio mul
	/x exch def
	x r sub
	/x0 exch def
	x r add
	/x1 exch def
	x0 y M x1 y L
	y r sub
	/y0 exch def
	y r add
	/y1 exch def
	x y0 M x y1 L
} def
/Scro {
	xratio mul
	/r exch def
	yratio mul
	/y exch def
	xratio mul
	/x exch def
	x r sub
	/x0 exch def
	y r sub
	/y0 exch def
	x r add
	/x1 exch def
	y r add
	/y1 exch def
	x0 y0 M x1 y1 L
	x r add
	/x0 exch def
	y r sub
	/y0 exch def
	x r sub
	/x1 exch def
	y r add
	/y1 exch def
	x0 y0 M x1 y1 L
} def
/Sm {
	yratio mul
	/y exch def
	xratio mul
	/x exch def
	x y M
} def
/Sl {
	yratio mul
	/y exch def
	xratio mul
	/x exch def
	x y L
} def
/SPl {
	yratio mul
	/y exch def
	xratio mul
	/x exch def
	x y PL
} def
/Sarr {
	/sfill exch def
	xratio mul
	/r exch def
	yratio mul
	/y exch def
	xratio mul
	/x exch def
	y r add
	/ytop exch def
	y r sub
	/ybot exch def
	gsave
	Slrgb setrgbcolor
	sfill 0 eq {
		r 2 mul 3 div dup
		x exch sub
		/xleft exch def
		x add
		/xright exch def
		newpath xleft y moveto x ytop lineto xright y lineto x ytop moveto x ybot lineto
		Lcs
		1 setlinejoin
	} {
		r 2 div dup
		x exch sub
		/xleft exch def
		x add
		/xright exch def
		newpath xleft y moveto x ytop lineto xright y lineto x ytop closepath moveto x ybot lineto
		gsave
		fill
		grestore
	} ifelse
	Slw setlinewidth
	S
	grestore
} def
/Spipe {
	xratio mul
	/r exch def
	yratio mul
	/y exch def
	xratio mul
	/x exch def
	y r sub
	/y0 exch def
	y r add
	/y1 exch def
	x y0 M x y1 L
} def
/Sv {
	xratio mul
	/r exch def
	yratio mul
	/y0 exch def
	xratio mul
	/x0 exch def
	/xcen x0 def
	y0 r add
	/ytop exch def
	r 2 div
	y0 exch sub
	/ybot exch def
	r 3 sqrt 2 div mul dup
	xcen exch sub
	/xleft exch def
	xcen add
	/xright exch def
	newpath xleft ytop moveto xcen ybot lineto xright ytop lineto
	Slw setlinewidth
	Slrgb setrgbcolor
	S
} def
/Lcs {
	currentlinecap
	1 setlinecap
} def
/Lcr {
	setlinecap
} def
/Sbp {
	newpath
} def
/Sep {
	/sfill exch def
	closepath
	/salign exch def
	Lcs
	salign 0 eq {
		sfill Sfill
		gsave
		Slw 2 mul setlinewidth
		clip
		Slrgb setrgbcolor
		S
		grestore
	} if
	salign 1 eq {
		sfill Sfill
		Slw setlinewidth
		Slrgb setrgbcolor
		S
	} if
	salign 2 eq {
		gsave
		Slw 2 mul setlinewidth
		Slrgb setrgbcolor
		S
		grestore
		sfill Sfill
	} if
	newpath
	Lcr
} def
/Sbpa {
	newpath
} def
/Sepa {
	Slw setlinewidth
	Slrgb setrgbcolor
	currentlinejoin
	1 setlinejoin
	S
	setlinejoin
	newpath
} def
/Stransrot {
	/anglep exch def
	yratio mul
	/y exch def
	xratio mul
	/x exch def
	x y translate
	anglep rotate
	x neg y neg translate
} def
/cp {currentpoint} def 
/M {moveto} def 
/rm {rmoveto} def 
/S {
	Slw 0.000 eq {
		newpath
	} if
	Slw 0.000 ne {
		stroke
	} if
} def
/L {Slw setlinewidth Slrgb setrgbcolor lineto Lcs S Lcr} def 
/PL {Slw setlinewidth Slrgb setrgbcolor lineto} def 
/MF-Helvetica {
  /newfontname exch def
  /fontname exch def
  /fontdict fontname findfont def
  /newfont fontdict maxlength dict def
  fontdict {
  exch dup /FID eq {pop pop} {exch newfont 3 1 roll put} ifelse
  } forall
  newfont /FontName newfontname put
  newfont /Encoding ISOLatin1Encoding put
  newfontname newfont definefont pop
} def
/Helvetica /Helvetica-0 MF-Helvetica
/Slw 0.120 def
0.941 0.941 0.941 setrgbcolor
0 0 257.400 187.200 Sbgfill
/Sfill {
	/sfill exch def
	sfill 1 eq {
		Ssrgb setrgbcolor
		gsave
		fill
		grestore
	} if
} def
/Sstroke {
	/sstroke exch def
	sstroke 1 eq {
		Slw setlinewidth
		Slrgb setrgbcolor
		S
	} if
	newpath
} def
/Slrgb {1.000 1.000 1.000} def
/Strgb {1.000 1.000 1.000} def
/Ssrgb {1.000 1.000 1.000} def
/Ssrgb {0.941 0.941 0.941} def
/Slw 0.374 def
/Slrgb {0.941 0.941 0.941} def
0 0 31999 23272 0 1 Srect
23 23 31976 23249 1 0 Srect
/Ssrgb {1.000 1.000 1.000} def
/Slrgb {1.000 1.000 1.000} def
2720 3148 31184 21386 0 1 Srect
2743 3171 31161 21363 1 0 Srect
/Slrgb {0.000 0.000 0.000} def
/Strgb {0.000 0.000 0.000} def
/Slw 0.562 def
/Slrgb {0.910 0.910 0.910} def
2720 3148 31184 3148 Sln
/Slw 0.374 def
/Slrgb {0.000 0.000 0.000} def
/Slw 0.562 def
/Slrgb {0.910 0.910 0.910} def
2720 7170 31184 7170 Sln
/Slw 0.374 def
/Slrgb {0.000 0.000 0.000} def
/Slw 0.562 def
/Slrgb {0.910 0.910 0.910} def
2720 11192 31184 11192 Sln
/Slw 0.374 def
/Slrgb {0.000 0.000 0.000} def
/Slw 0.562 def
/Slrgb {0.910 0.910 0.910} def
2720 15214 31184 15214 Sln
/Slw 0.374 def
/Slrgb {0.000 0.000 0.000} def
/Slw 0.562 def
/Slrgb {0.910 0.910 0.910} def
2720 19235 31184 19235 Sln
/Slw 0.374 def
/Slrgb {0.000 0.000 0.000} def
/Ssrgb {0.502 0.502 0.502} def
/Slw 0.562 def
3629 3148 4424 20874 0 1 Srect
3664 3183 4389 20839 1 0 Srect
4424 3148 5219 15084 0 1 Srect
4459 3183 5184 15049 1 0 Srect
5219 3148 6014 14550 0 1 Srect
5254 3183 5979 14515 1 0 Srect
6014 3148 6808 12947 0 1 Srect
6049 3183 6773 12912 1 0 Srect
6808 3148 7603 10586 0 1 Srect
6843 3183 7568 10551 1 0 Srect
7603 3148 8398 8983 0 1 Srect
7638 3183 8363 8948 1 0 Srect
8398 3148 9193 7736 0 1 Srect
8433 3183 9158 7701 1 0 Srect
9193 3148 9987 6889 0 1 Srect
9228 3183 9952 6854 1 0 Srect
9987 3148 10782 5553 0 1 Srect
10022 3183 10747 5518 1 0 Srect
10782 3148 11577 4885 0 1 Srect
10817 3183 11542 4850 1 0 Srect
11577 3148 12371 4440 0 1 Srect
11612 3183 12336 4405 1 0 Srect
12371 3148 13166 3816 0 1 Srect
12406 3183 13131 3781 1 0 Srect
13166 3148 13961 3638 0 1 Srect
13201 3183 13926 3603 1 0 Srect
13961 3148 14756 3504 0 1 Srect
13996 3183 14721 3469 1 0 Srect
14756 3148 15550 3371 0 1 Srect
14791 3183 15515 3336 1 0 Srect
15550 3148 16345 3193 0 1 Srect
15585 3183 16310 3158 1 0 Srect
16345 3148 17140 3326 0 1 Srect
16380 3183 17105 3291 1 0 Srect
17140 3148 17935 3237 0 1 Srect
17175 3183 17900 3202 1 0 Srect
17935 3148 18729 3326 0 1 Srect
17970 3183 18694 3291 1 0 Srect
18729 3148 19524 3237 0 1 Srect
18764 3183 19489 3202 1 0 Srect
19524 3148 20319 3193 0 1 Srect
19559 3183 20284 3158 1 0 Srect
20319 3148 21114 3193 0 1 Srect
20354 3183 21079 3158 1 0 Srect
21908 3148 22703 3193 0 1 Srect
21943 3183 22668 3158 1 0 Srect
26677 3148 27471 3193 0 1 Srect
26712 3183 27436 3158 1 0 Srect
28266 3148 29061 3193 0 1 Srect
28301 3183 29026 3158 1 0 Srect
/Slw 0.374 def
2720 3148 2720 21386 Sln
2720 3148 2397 3148 Sln
2235 2865 0
/Helvetica-0 findfont 808 yratio mul scalefont setfont
(0) stringwidth pop add
xratio div
dup 4 3 roll exch 0.000 cos mul sub 3 1 roll 0.000 sin mul sub 2 copy
/fntsize {/Helvetica-0 findfont exch scalefont setfont } def
0.000 808
(0) Stxtl
(0) stringwidth pop xratio div
dup 4 3 roll exch 0.000 cos mul add 3 1 roll 0.000 sin mul add 2 copy
pop pop pop pop
2720 7170 2397 7170 Sln
2235 6887 0
/Helvetica-0 findfont 808 yratio mul scalefont setfont
(5) stringwidth pop add
xratio div
dup 4 3 roll exch 0.000 cos mul sub 3 1 roll 0.000 sin mul sub 2 copy
/fntsize {/Helvetica-0 findfont exch scalefont setfont } def
0.000 808
(5) Stxtl
(5) stringwidth pop xratio div
dup 4 3 roll exch 0.000 cos mul add 3 1 roll 0.000 sin mul add 2 copy
pop pop pop pop
2720 11192 2397 11192 Sln
2235 10909 0
/Helvetica-0 findfont 808 yratio mul scalefont setfont
(10) stringwidth pop add
xratio div
dup 4 3 roll exch 0.000 cos mul sub 3 1 roll 0.000 sin mul sub 2 copy
/fntsize {/Helvetica-0 findfont exch scalefont setfont } def
0.000 808
(10) Stxtl
(10) stringwidth pop xratio div
dup 4 3 roll exch 0.000 cos mul add 3 1 roll 0.000 sin mul add 2 copy
pop pop pop pop
2720 15214 2397 15214 Sln
2235 14931 0
/Helvetica-0 findfont 808 yratio mul scalefont setfont
(15) stringwidth pop add
xratio div
dup 4 3 roll exch 0.000 cos mul sub 3 1 roll 0.000 sin mul sub 2 copy
/fntsize {/Helvetica-0 findfont exch scalefont setfont } def
0.000 808
(15) Stxtl
(15) stringwidth pop xratio div
dup 4 3 roll exch 0.000 cos mul add 3 1 roll 0.000 sin mul add 2 copy
pop pop pop pop
2720 19235 2397 19235 Sln
2235 18952 0
/Helvetica-0 findfont 808 yratio mul scalefont setfont
(20) stringwidth pop add
xratio div
dup 4 3 roll exch 0.000 cos mul sub 3 1 roll 0.000 sin mul sub 2 copy
/fntsize {/Helvetica-0 findfont exch scalefont setfont } def
0.000 808
(20) Stxtl
(20) stringwidth pop xratio div
dup 4 3 roll exch 0.000 cos mul add 3 1 roll 0.000 sin mul add 2 copy
pop pop pop pop
2720 3148 31184 3148 Sln
4245 3148 4245 2825 Sln
4245 2097 0
/Helvetica-0 findfont 808 yratio mul scalefont setfont
(.2) stringwidth pop add
2 div xratio div
dup 4 3 roll exch 0.000 cos mul sub 3 1 roll 0.000 sin mul sub 2 copy
/fntsize {/Helvetica-0 findfont exch scalefont setfont } def
0.000 808
(.2) Stxtl
(.2) stringwidth pop xratio div
dup 4 3 roll exch 0.000 cos mul add 3 1 roll 0.000 sin mul add 2 copy
pop pop pop pop
10852 3148 10852 2825 Sln
10852 2097 0
/Helvetica-0 findfont 808 yratio mul scalefont setfont
(.3) stringwidth pop add
2 div xratio div
dup 4 3 roll exch 0.000 cos mul sub 3 1 roll 0.000 sin mul sub 2 copy
/fntsize {/Helvetica-0 findfont exch scalefont setfont } def
0.000 808
(.3) Stxtl
(.3) stringwidth pop xratio div
dup 4 3 roll exch 0.000 cos mul add 3 1 roll 0.000 sin mul add 2 copy
pop pop pop pop
17459 3148 17459 2825 Sln
17459 2097 0
/Helvetica-0 findfont 808 yratio mul scalefont setfont
(.4) stringwidth pop add
2 div xratio div
dup 4 3 roll exch 0.000 cos mul sub 3 1 roll 0.000 sin mul sub 2 copy
/fntsize {/Helvetica-0 findfont exch scalefont setfont } def
0.000 808
(.4) Stxtl
(.4) stringwidth pop xratio div
dup 4 3 roll exch 0.000 cos mul add 3 1 roll 0.000 sin mul add 2 copy
pop pop pop pop
24066 3148 24066 2825 Sln
24066 2097 0
/Helvetica-0 findfont 808 yratio mul scalefont setfont
(.5) stringwidth pop add
2 div xratio div
dup 4 3 roll exch 0.000 cos mul sub 3 1 roll 0.000 sin mul sub 2 copy
/fntsize {/Helvetica-0 findfont exch scalefont setfont } def
0.000 808
(.5) Stxtl
(.5) stringwidth pop xratio div
dup 4 3 roll exch 0.000 cos mul add 3 1 roll 0.000 sin mul add 2 copy
pop pop pop pop
30673 3148 30673 2825 Sln
30673 2097 0
/Helvetica-0 findfont 808 yratio mul scalefont setfont
(.6) stringwidth pop add
2 div xratio div
dup 4 3 roll exch 0.000 cos mul sub 3 1 roll 0.000 sin mul sub 2 copy
/fntsize {/Helvetica-0 findfont exch scalefont setfont } def
0.000 808
(.6) Stxtl
(.6) stringwidth pop xratio div
dup 4 3 roll exch 0.000 cos mul add 3 1 roll 0.000 sin mul add 2 copy
pop pop pop pop
16952 591 0
/Helvetica-0 findfont 808 yratio mul scalefont setfont
(Surplus extracted by patients \(%\)) stringwidth pop add
2 div xratio div
dup 4 3 roll exch 0.000 cos mul sub 3 1 roll 0.000 sin mul sub 2 copy
/fntsize {/Helvetica-0 findfont exch scalefont setfont } def
0.000 808
(Surplus extracted by patients \(%\)) Stxtl
(Surplus extracted by patients \(%\)) stringwidth pop xratio div
dup 4 3 roll exch 0.000 cos mul add 3 1 roll 0.000 sin mul add 2 copy
pop pop pop pop
4280 21764 0
/Helvetica-0 findfont 792 yratio mul scalefont setfont
(Percent) stringwidth pop add
2 div xratio div
dup 4 3 roll exch 0.000 cos mul sub 3 1 roll 0.000 sin mul sub 2 copy
/fntsize {/Helvetica-0 findfont exch scalefont setfont } def
0.000 792
(Percent) Stxtl
(Percent) stringwidth pop xratio div
dup 4 3 roll exch 0.000 cos mul add 3 1 roll 0.000 sin mul add 2 copy
pop pop pop pop
S showpage
%%EOF
